unit UfrmProviderBrowse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSStandardBrowse, DBGridEhGrouping, DB, ActnList, RzPanel,
  GridsEh, DBGridEh, RzTabs, ExtCtrls, ADODB,WSEdit, RzButton,ufrmProviderEdit,
  StdCtrls;

type
  TfrmProviderBrowse = class(TWSStandardBrowseForm)
    qryProvider: TADOQuery;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
  private
    { Private declarations }
  protected
    function CreateEditForm: TWSEditForm; override;
    procedure iniForm; override;
    function GetEditParams: Variant; override;
    
     
  public
     { Public declarations }
    
  end;

var
  frmProviderBrowse: TfrmProviderBrowse;

implementation
  uses CommonDM;




{$R *.dfm}

{ TfrmProviderBrowse }

function TfrmProviderBrowse.CreateEditForm: TWSEditForm;
begin
    Result:=TfrmProviderEdit.Create(nil);
end;

function TfrmProviderBrowse.GetEditParams: Variant;
begin
  Result:= DataSet.FieldByName('clientid').Value;
end;

procedure TfrmProviderBrowse.iniForm;
begin
   qryProvider.Open;
end;

end.
